home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getfile / getfile.frm < prev    next >
Text File  |  1997-05-10  |  3KB  |  98 lines
  1. VERSION 5.00
  2. Begin VB.Form Leifens1 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "Leifen's FileConnector"
  6.    ClientHeight    =   1560
  7.    ClientLeft      =   1890
  8.    ClientTop       =   1905
  9.    ClientWidth     =   6495
  10.    BeginProperty Font 
  11.       Name            =   "MS Sans Serif"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    LinkTopic       =   "Form1"
  21.    PaletteMode     =   1  'UseZOrder
  22.    ScaleHeight     =   1560
  23.    ScaleWidth      =   6495
  24.    Begin VB.ComboBox Combo1 
  25.       BeginProperty Font 
  26.          Name            =   "MS Sans Serif"
  27.          Size            =   8.25
  28.          Charset         =   0
  29.          Weight          =   400
  30.          Underline       =   0   'False
  31.          Italic          =   0   'False
  32.          Strikethrough   =   0   'False
  33.       EndProperty
  34.       Height          =   315
  35.       Left            =   1200
  36.       TabIndex        =   2
  37.       Text            =   "avi"
  38.       Top             =   120
  39.       Width           =   5055
  40.    End
  41.    Begin VB.CommandButton Command1 
  42.       Appearance      =   0  'Flat
  43.       BackColor       =   &H80000005&
  44.       Caption         =   "Check"
  45.       Height          =   375
  46.       Left            =   120
  47.       TabIndex        =   1
  48.       Top             =   1080
  49.       Width           =   6135
  50.    End
  51.    Begin VB.Label Label2 
  52.       Caption         =   "Filetype"
  53.       BeginProperty Font 
  54.          Name            =   "MS Sans Serif"
  55.          Size            =   8.25
  56.          Charset         =   0
  57.          Weight          =   400
  58.          Underline       =   0   'False
  59.          Italic          =   0   'False
  60.          Strikethrough   =   0   'False
  61.       EndProperty
  62.       Height          =   255
  63.       Left            =   120
  64.       TabIndex        =   3
  65.       Top             =   120
  66.       Width           =   1095
  67.    End
  68.    Begin VB.Label Label1 
  69.       BackColor       =   &H00FFFFFF&
  70.       BorderStyle     =   1  'Fixed Single
  71.       Height          =   375
  72.       Left            =   120
  73.       TabIndex        =   0
  74.       Top             =   600
  75.       Width           =   6135
  76.    End
  77. End
  78. Attribute VB_Name = "Leifens1"
  79. Attribute VB_GlobalNameSpace = False
  80. Attribute VB_Creatable = False
  81. Attribute VB_PredeclaredId = True
  82. Attribute VB_Exposed = False
  83. Private Sub Command1_Click()
  84.   Label1.Caption = Getfiles()
  85. End Sub
  86.  
  87. Private Sub Form_Load()
  88. Combo1.AddItem "htm"
  89. Combo1.AddItem "html"
  90. Combo1.AddItem "txt"
  91. Combo1.AddItem "wri"
  92. Combo1.AddItem "doc"
  93. '++++
  94.  
  95. End Sub
  96.  
  97.  
  98.